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-TITLE NPARSE NETWORK (BINARY) MESSAGE PARSER 
-IDENT 'V04=000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES. THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: TABLE DRIVEN NETWORK (BINARY) MESSAGE PARSER 


ABSTRACT: 


NPARSE is a binar yrtine facility similar to the table-driven 
ASCII parser, TPA State tables provide the information necessary 
to validate and process binary data messages such as those of the 
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0000 DECnet-VAX NICE protocol. 
0000 
0000 ENVIRONMENT: VAX/VMX Operating System 


AUTHOR: Scott Davidson » CREATION DATE: 25-Sep-1979 
Adapted from NPARS facility for DECnet-11M. 
MODIFIED BY: 
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v03-001 AkPO001 Kathy Perko 19-Jan-1982 
Add psects which are compatible with BLISS ones so that 
NML doesn't use so many image sections. 


v03-001 mKP0001 Kathy Perko 25-0c t-1981 
Fix copyright and add documentation about NPARSE tables 
which this module parses. 


OOOoooooooooo 
DAL WO OONA UWE WIN | O OD NA NE UIN OOD NAME WIN 9 OD NAUSEA OOONOUE WN 


PVP PV Be BP BS BB BB EB AAAI AAAI DINONINPINPOPONNPY 2) OO Ot 


SOOoOoooooQoQoooooooo 
COOoooooooooo 


oooo 
Soooo 
Soooooeo 


16-SEP-1984 + 00:86 43 bee: Macro Vv04-00 Page 


NP/ 
vO. 


E 6 | 
NPAR NETWORK (BINARY) MESSAGE PARSER 16-SEP-1984 744: AX/VMS Macro V04-00 Page 
Vv04- -SEP-1984 00:38 ee ENML SRCTNPARSE MARS 9 (3) | 


2 3 NPARSE = Teble Driven Parser for the NICE Protocol 


sNPARSE is a VMS adaptation of the RSX NPARS foc ttt. NPARSE is a str igped 
sdown version of the standard table driven parser, TPARSE, (see Chapter 
sof the VAX-11 Common Run-Time Procedure Li rary Reference Manual manual). The 
sparse tables are set up in a similar manner using the following macros: 


31. Initialising the state table 


: The IMSG$ macro is used to initialise the state table which describes 
the format of the message to be persae. The state table is placed in the psect 
;"NPASSTATE’. The IMSGS macro takes 3 Single argument which is the starting 
label of the state table. The macro format is: 


: IMSGS  statetable 


:2. Defining a message field 


; The FIELDS macro declares the beginning of field within the message. 
syatacticetty this macro delimits one message field 
FIELD$ macro {is coded as follows: 


: FIELDS Clabel) 


ere label is an alphanumeric symbol that is equated to the address of the 
istate. 


:3. Defining a field specification 


The general format for defining a field specification is as follows: 


| 
| 
| 
| 
| 
ion another. The 
| 


= § ~QOOODOO000000000 00000 09 09 09 69 00 09 09 09 09 09 SINISE NIA AAA AAAO OO 
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$Macro Cargumenti](, label jt .ectionJt mack ashadr JC poren) 
»NPAS_EXIT 
»NPAS_FAILJ 
swhere Label, action, mask, mskadr and param have the same yess as 
sfor TPARSE. The following macros are used to define field specifications: 
:Macro Argument 
00 i [SIMAGE size defines an image field with a maximum Length of ‘size’ 
4 \ [SWORD number matches a word (2 bytes) from the message. 
8 ! :$BYTE value matches a single byte from the message. 
00 107 :$LOOK [value] Examine a byte but do not advance the pointers. 
Bb ! ; Optionally, examine a byte with the specified value. 
8 \ SEOM matches the end of the message. 
00 112 :S$NULL this transition is always successful (equivalent to 
3 : : the TPARSE TPAS_LAMDA transition). 
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15 ;$SBEXP state recursively calls NPARSE to parse a subexpression 
1 ; from the message. 
18 SSERROR code forces a failure from NPARSE at the top level and loads 
8 19 ; the error code into RO. ALL error codes shoul 
4 : be even numbers suitable for testing with BLBC or BLBS. 
00 ¢ :SEXTZV fld matches a value of a specified field of bits within 
00 3 a byte and optionally advance the pointers. The 
4 : : "fld" argument has the following form: | 
090 § ; <value,position,sizel,NPAS_ADVANCEJ>. 
00 8; where: 
0000 9; 
000 0 3 value = field value to match 
0000 13 position = bit position within the byte 
44 § ; size = field width (0<size<9) 
0000 4; The field value (not the entire byte) is stored in | 
0000 2 3 NPASB_BYTE. 
9444 f SSMASK bitmask matches a byte with any of the specified bits set. 
4 a4 ;SMATCH number matches a sequence of bytes, ‘number’ in Length. 
0000 ; 
0000 3 
44 3 Calling Conventions 
0 99 :NPARSE is invoked in the following manner: 
0000 : 
0 
0 
0 
0 
° 
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$} 
23 
44 
45 
46 
rt CALLS #2,NMASNPARSE 
000 $3 jWhen NPARSE is invoked, the following arguments must be set up: 
000 51; Pl - pointer to NPARSE argument block 
444 26 3 P2 = label of the starting state in the NPARSE table 
' : 
000 23 The NPARSE argument block has the following format: 
26 ; | 
0 5 3 ¢eeeeecececan ¢eenseneae peewee ew ooe $oeen enn en a | 
3 28 jNPASL_COUNT ! ; NPASK _COUNTO . : 
; 60 SNPASL_MSGCNT ! bytes remaining to be parsed : 
le 61 3 p$oeoewcoceows parce scsece e¢e see cesce teoeocere a | 
000 6¢ sNPASL_MSGPTR =! pointer to unparsed message } 
Od 6 3 poewoeones $eeeancaoee deer eee eeaee tween onomrae 7 } 
64 ;NPASL_OPTIONS ! *reserved* : 
65 $ gesece eeceetoceooan i ers e¢weeroecrene + 
66 sNPASL_FLOCNT =! count of matched field : 
6 2 ¢eeecee os Se ee ees * j 
08 NPASL_FLDPTR =! pointer to matched field : 
8 ;NPASB_BYTE ee cet oro Na ee eee be | 
;NPASW_WORD : unsigned value : | 
7 ;NPASL_LONG eee ereoocon power res ee foresee eee eee eenaee = + 
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NPASL_NUMBER H ‘ signed value i : 
ENPASL. PARAM : action routine | parameter : 
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On return from NPARSE, RO contains the status code. 


iAct ion routines are called with the argument pointer (AP) pointing to | 
ithe NPARSE argument block. Transitions may be rejected by returning RO 
pore the low bit clear. 


Example of a state table to parse a message consisting of: 
1. Image-8 field 
2. Parameter field (parameters 100, 101 and 102 ore allowed) 
The parameters may be repeated any number of times. 


IMSGS MSGTAB 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: FIELDS 
0000 : SIMAGE 8 
9000 : FIELDS PARM 
000 : SSBEXP PARAM, PARR 
44 5 SEOM NPAS_E 
900 ; SERROR NMLS_ sis. FOR 
$090 § : FI PA 
000 02 ; SPARAM 100,NPAS_EXIT,,1,PARNUM 
900 03 ; SPARAM 19 »NPAS_EXIT,,2,PARNUM 
444 3 SPARAM 102.NPAS~EXIT..4.PARNUM 
0000 206: FIELDS 
0000 07 ; 
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-SBTTL Declarations 


INCLUDE FILES: 


SNPADEF ; Define NPARSE argument block offsets 
NPADF ; Define NPARSE function and matching codes 
3; MACROS 


: EQUATED SYMBOLS: 


-SBTTL *eeeDEBUGeers 
SSDEBUGSS zs 1 
-PSECT SOWNS,NOEXE,RD,WRT 
OWN STORAGE: 


NPASGL_LOGMASK: : 
«LONG ; Logging mask (1=yes) 


3) 
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~SBTTL NMASNPARSE = MAIN ROUTINE BODY 
-PSECT S$CODES,EXE,RD,NOWRT 


+4 
FUNCTIONAL DESCRIPTION: 


; FORMAL PARAMETERS: 


P1 = Pointer to NPARSE argument block 
P2 = Initial state pointer 


44 
e 
rk ; 
44 ; 
i 
¢} ; 
0 t ; 
8 29 : IMPLICIT INPUTS: 
0 26 : NPARSE argument block must contain message Length (NPASL_MSGCNT) 
0000 37 ; and message pointer (NPASL_MSGPTR). 
0900 35 ; IMPLICIT OUTPUTS: 
0000 5 : NPARSE argument block contains Length of unparsed message (NPASL_MSGCNT) 
44 38 3 and pointer to unparsed part of message (NPASL_MSGPTR). 
0000 260 : ROUTINE VALUE: 
0000 61 ; COMPLETION CODES: 
0000 86 ; 
i443 65 ; RO = Success or error status code 
000 64 ; 
0000 65 ; SIDE EFFECTS: 
44 66 ; 
000 67 ; NONE 
0000 68 ; 
0000 +4 i-- 
944 0 
O7FC 0000 71 sENTRY NMASNPARSE ,“M<R2,R3,R4,R5,R6,R7,R8B,RI,R1I0> 
SA 04 AC 00 0002 7 MOVL “ : Get argument block pointer 
2g 04 AA 00 9493 7 MOVL NPASL_MSGCNT(R10),R ; Get songth argument 
5 08 AA 00 Bee 74 MOVL NPASL_MSGPTR(R10) .R 3; Get buffer pointer argument 
55 08 AC 00 000 75 MOVL (AP) ,R5 ; Get initial state argument 
01 16 IF DEFINED S$DEBUGSS 
04 AA DD 001 7 PUSHL NPASL_MSGCNT(R10) ; Store initial message count 
QOOOOO9A'EF ODF 001 78 PUSHAL yt INIT 3; Store pointer to FAO control string 
000002D5'EF 02 FB 9 a4 = CALLS #2,RNPASSDEBUG_OUT 3 Call debug output routine 
OOOOOOSE'EF O00 FB O 1 CALLS #0,NPASSSUB_EXPR :; Begin message processing 
9 : IF DEF INED S$SOEBUGSS 
, # 9 USHR #*M<RO> ; Save register 
04 DD 0028 4 PUSHL NPASL_MSGCNT(R10) ; Store toe ta message length | 
OOOOOOC6'EF ODF 00 5 PUSHAL L 3; Store pointer to FAO control string 
000002D5‘°EF 02 FB 0034 § CALLS #2,NPASSDEBUG_OUT :; Call debug output routine 
01 BA 00 POPR #*A<RO> ; Restore register 
. D 8 .ENDC 
04 D 9 RET 
| 
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: a : -SBTTL NPASSSUB_EXPR = SUBEXPRESSION ENTRY POINT 
; a Subexpression entry point 
0040 Z 95 ° -ENTRY NPASSSUB_EXPR,“M<R6> $ 
Z s ; Enter new state specified in R5 
FFFFFFFF 8F 33 D1 4 3 stat: CMPL R5,#@NPAS_FAIL ; Fail the ¥ aby. ? 
A 13 4 0 BEQL SYNER 3; If EQL 
10 AA D4& 0049 1 CLRL NPASL_FLDCNT(R10) 3; Clear any “old field 
18 AA D4 bee § CLRL NPASL_LON a BA S$ eee 
1C AA D4 GF CLRL . cae NUMBER (R10) E see 
14 AA 53 0 B2 4 VL oro FLDPTR(R10) : Initialize field pointer 
56 85) «63C_ «(005 5 MOVEWL asheek ; Get type 
Ope Bg ASE 6,< ; Dispatch 
59-30 mAtCH.. IMAGE ,- : 00 © image field 
059 08 MATCH-WORD,- :; 01 = word (unsigned) 
059 09 MATCH_MASK,= : Oe - match masked byte value 
0059 10 MATCH _BYTE,- ; 03 - byte (unsigned 
0059 11 ATCH_EOM,=- : 04 - match end of message 
0059 1 ATCH_ALL,=- ; 05 = always match 
0059 1 MATCH_SBEXP,= ; 86 - match a subexpression 
0059 14 MATCH_ERROR,=- ; 07 - exit from parse with error 
0059 315 MATCH” STRING, = : 08 = match byte string 
0059 16 EXAMINE BYTE,- ; 09 = examine a byte 
$22 4 ATCH_ERTZV- : 10 = match qutrested byte value 
0073 19 SYNERR: 
50 01 CA 007 0 BICL #1,R0 ; Indicate parse failure 
0076 1 ost DEFINED S$$DEBUGSS 
01 6B b058 § PUSHR #*M<RO> ; Save register 
50 OD 007 PUSHL R : Store exit status value 
Q00000088'EF DF OQOO7A 4 PUSHAL yt FAIL 3; Store pointer to FAO control string 
000002D5°EF 02 FB 4 5 CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
01 BA 008 6 POPR #*A<RO> ; Restore register 
3 9 7 .ENDC 
16 = 9 8 BRB EXIT 3 
0 9 SUCCESS: 
0 0 .IF DEFINED seoeeuses 
ash sz EF DF QO 1 PUSHAL OUT r tate ; Store output string address 
se 0007"8F DD 0091 § PUSHL sour. : _ and length 
00000311"EF 02 FB ype oo CALLS NPASSDEBUG _OuT2 ; Call debug output routine 
50 01 C8 SF 5 BISL #1,R0 : Indicate successful parse 
my § EXIT: 
04 Al RET ; 
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‘ 2. ES «SBTTL MATCH_IMAGE = MATCH ON IMAGE MODE FIELD 
A a} | : **=MATCH_IMAGE-MATCH ON IMAGE MODE FIELD 
A rk AN IMAGE MODE FIELD CONSISTS OF A SINGLE BYTE GIVING THE LENGTH OF 
- te i. 3 THE FIELD FOLLOWED BY THAT NUMBER OF BYTES. 
A 46 r INPUTS: 
A 4 ; - # OF BYTES REMAINING TO BE SCANNED 
OA tg i 3 4 = POINTER TO UNSCANNED PART OF MESSAGE 
- 4 : R5 = POINTER TO ? 
A 29 AATCH. IMAGE : 
52 if A 26 Re : Tid arene left in message ? 
eg 1 OAS 5 et 10$ 3 » count is not present 
26 2 9A OOA 54 MOVZBL £05) RG 3 UA length of snoge field 
02 A 6 bi QOA 55 CMPL Re 2(R5) ; Is it w — specified range ? 
1D 1A OOAD 36 BGTRU 108 : If GTRU, 
28 D6 OOAF 5 INCL R6 : Take inte. secount the count byte 
52 32 H 00e4 33 oe RO ,Re 3 Foouge cherasters in message 
10 AA 56 «600 0086 «86. 360 MOVL _R6,NPASL_FLDCNT(R10) = set oink of matched field 
O0BA 361 .IF DEFINED S$DEBUGSS 
53 DD OOBA es PUSHL R3 ; Store pointer to image field 
QOOOOO00'EF ODF 008 PUSHAL wi IMAGE 3; Store pointer to FAO control string 
000002DS*°EF 02 FB ne $8 net CALLS #2,RPASSDEBUG_OUT ; Call debug output routine 
O1A2 -31—«00C9 66 : BRW UPDTRN ; Update pointers and do transition 
0150 1 O0CcC 67 10$: BRwW NXTRAN 3; Reject the transition 
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4 9 : ~SBTTL MATCH WORD = MATCH ON PARAMETER VALUE IN MESSAGE 

ef 7 : t#-MATCH_WORD-MATCH ON PARAMETER VALUE IN MESSAGE 

CF rg : A word value occupies two consecutive message bytes. 

1 oe 3 Match the specified word value (unsigned). 

CF id: : INPUTS: 

CF 77 3: Re - # OF BYTES REMAINING TO BE SCANNED 

$f 4 ; R35 = POINTER TO UNSCANNED PART OF MESSAGE 

Ott 0 MATCH_WORD: 
5 D1 CF 1 CMPL Re #2 3; Two bytes left in message ? 
22 +19 00d2 : toe é : If LSS, no 
6 3C 00D4 MOVZWL (R3),NPASW_WORD(R10) : Get word value for action routines 
AS BI ong 4 CMPW ¢(R55 ,NPASO_WORD (R10) : Does it match ? 
17 is DD 5 BNEQU $ | U, no 
02 OD ODF § OVL a spe FLDCNT(R10) ; Set length of matched field 
OE IF DEFINED $$OEBUGSS 

AA OD BoE 8 PUSHL NPA$W_WORD(R10) ; Store word value 
EF OF O0E6 9 PUSHAL out WORD ; Store pointer to FAO control string 
02 FB OOF 3 + ENDC CALLS @# ,NPASSDEBUG_OUT ; Call debug output routine 
78 4 OOF 35 ‘ BRW UPDTRN ; Update pointers and do transition 
26 1 OOF6 93 10$: BRW NX TRAN ; Reject the transition 
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3 33 ‘ ~SBTTL MATCH MASK = MATCH ON MASKED BYTE VALUE 
3 $7 3 **-MATCH_MASK-MATCH ON BYTE VALUE IN MESSAGE 
F9 39 $ 
F9 rt :- 
F9 = 401 
F9 C86 MATCH_MASK: 
5 D5 FO 4 TSTL Re $ any 5 ag left in message ? 
2 15 OOFB oee BLEQ 2 ; 
18 AA 6 9A QOFD 405 10$ MOVZBL (R35) cease BYTE(R10) 5 ie next ats from message 
18 02 AS 3 101 4 § BITB (855 »NPASB_BYTE(R10) ; Any mask b ts set ? 
1 1 1 $ 4 BEQLU 3; If EQLU 
10 AA O01 DO O1 408 OVL #1 ‘ PASL FLDCNT(R10) ; Set ey of matched field 
10C 409 .IF DEFINED $$OEBUGS 
3 AA odd Q010C 410 PUSHL NPA$B_BYTE(R10) 3; Store byte value 
QOOOOOSS'EF DF Q10F 411 PUSHAL OUT_MATCH ; Store pointer to FAO control string 
O00002DS'EF O02 FB Bite rt net CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
O14F 31 OIC 414 BRw UPDTRN ; Update pointers and do transition 
OOFD 31 OIF 415 208: BRw NXTRAN ; Reject the transition 


MATCH ON THE NEXT AVAILABLE BYTE IN THE MESSAGE. 
| 
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} cig ~SBTTL EXAMINE _BYTE = LOOK AT A BYTE WITHOUT ADVANCING POINTERS 
1 419 ;+ 
1 420 ; _* tr EXAMINE _BYTE=LOOK AT A BYTE WITHOUT ADVANCING MESSAGE POINTERS 
ae 
1 4 ‘ EXAMINE BYTE: 
D5 «(01 424 “TSTL Re 3 any 4 ge left in message ? 
15 0124 425 BLEQ 2 tt ; 
9A 0126 4 § MOVZBL ) ,NPASB BUTE CRIO) 3 ioe next byte 
8 12A 4 BITW PNPASM EXT (R5) ; Extension “present ? 
1 120 4 3 BEQLU $ 5 if U, 
91 12F 4 CMPB (hs) pane. ovveCene ; Do iy fe match ? 
12 0134 430 BNEQU 3 it 
dO 3 : ? 1 108 MOVL #1 ,NPASL_FLDCNT(R10) ; Set Length of matched field 
13A 235 .IF DEFINED $S$DEBUGSS 
DD O13A rt} PUSHL arr Mates ; Store byte value 
DF 01 g 435 PUSHAL OUT at ; Store pointer to FAO control string 
FB aiez $38 mes CALLS @# nbeeSpeeuc. OUT ; Call debug output routine 
31 14a 438 : BRW DOTRAN ; Do the transition 
1 0140 439 20$: BRW NXTRAN ; Reject the transition 


ny 
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EXTZV = LOOK AT EX TRACTED FIELD VA SEP=1984 8:4 NML.SRCINPARSE.MAR; 1 (1 
} stg . ~SBTTL MATCHLEXTZV = LOOK AT EXTRACTED FIELD VALUE 
! ret ; **-EXAMINE_BYTE=LOOK AT BYTE WITH SPECIFIED FIELD 
1 445 ; 
1 123 MATCH_EXTZV: 
3 15 44 TSTL R2 3 any i left in message ? 
12 448 BLEQ 0$ 3 
18 AA o¢ AS 154 449 MOVZBL (R5) ,NPASB_BYTE(R10) : hoe er eld value 
56 03 AS 159 450 MOVZBL oa) Be 3; Get bit position 
57 = 04 ag 15D = 451 MOVZBL 4(R5),R 3; Get field 4 bbe width) 
28 g 319) 126 MOVZBL (R3),R8 ; Get next byte in message 
18 AA 58 6 ED 0164 45 CMPZV RS R?,R8,NPASB_BYTE(R10)°; Match ? 
20 016A 454 BNEGU 20$ 3 1f NEQU 
10 AA 01 «0 016C) =O 455 OVL #I.NPASL_FLDCNT(R10) : Set field count 
0170 456 .IF DEFINED SSDEGUGSS 
02 AS DD 8128 457 USHL 2(R5) : Store field information 
QOO00044"EF DF 017 458 PUSHAL ot EXTZV ; Store pointer to FAD control string 
000002DS°EF 02 FB HF rH CALLS #2,NPAS$DEBUG_OUT ; Call debug output routine 
05S aS) «600109. Bige 461 BITB #NPAS_ADVANCE ,5(R5) ; Advance pointers ? 
03 13 0184 rh BEQL 10$ ; If EQL, no 
O0E5 1 0186 46 BRwW UPDTRN ; Update pointers and ée transition 
OOF 2 1 0189 464 10$ BRW DOTRAN : Perform the transitio 
0090 1 018¢ 465 20$ BRW NXTRAN ; Reject the seemnttion 
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} . $67 «SBTTL MATCH BYTE = MATCH ON SPECIFIED BYTE VALUE 
1 ; ies ; **=MATCH_BYTE-MATCH ON SPECIFIED BYTE VALUE 
1 : 4 : MATCH ON THE NEXT BYTE IN THE MESSAGE IF IT HAS A SPECIFIED VALUE. 
iBr 78 : INPUTS: 
QO18F 474 ; Re - # OF BYTES REMAINING TO BE SCANNED 
Ht i : R35 = POINTER TO UNSCANNED PART OF MESSAGE 
18F 299 MATCH_BYTE: 
5 D5 i $28 TSTL Re 3 Any pytes left in message ? 
2 15 0191 47 LEQ 10$ ; If LEQ, no 
18 AA 6 GA B13 480 MOVZBL (R3),NPA$B_BYTE(R10) ; Get next byte from message 
18 AA 02 AS) «(91 «(0197s 481 CMPB —s- 2(R5S,NPASB_BYTE(R10) =; Does it match specified byte ? 
oe age rt) BNEQU§ 10 3 + no 
10 A O01 00 019 4 OVL “i, Ay 8 FLDCNT(R10) ; Set length of matched field 
O1A 484 LIF DEFINED S$SDEBUGSS 
18 AA ODD pia 485 USHL NPA$B_BYTE(R10) 3; Store parameter value 
Q0000022"EF DF OIA 486 PUSHAL yt BYTE ; Store pointer to FAO control string 
000002D5 ‘EF :. eo at tt nee CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
0089 = 31 0189 489 - BRW UPDTRN ; Update pointers and do transition 
68 11 018 490 10$ BRB NXTRAN ; Reject the transition 
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V04- MATCH_SBEXP = MATCH ON SUBEXPRESSION met 99:58:48 ENML SRCINPARSE MARS 1 ° 13) | 
187 492 .SBTTL MATCH_SBEXP = MATCH ON SUBEXPRESSION | 
187 494 | **-MATCH SBEXPOMATCH ON SUBEXPRESSION 
187 £38 3 CALL THE PARSER RECURSIVELY TO MATCH ON A SPECIFIED 
187 497; SUBEXPRESSION. 
1B7 498 ;:- 
1B? 499 ; INPUTS: | 
0187 500; R2 - # OF BYTES REMAINING TO BE SCANNED 
0187 28 : R35 = POINTER TO UNSCANNED PART OF MESSAGE | 
187 ¢ 3 R5 = POINTER TO CURRENT STATE 
1B7 8 : 
187 4 MATCH_SBEXP: 
53 DOD 0187 05 PUSHL R3 ; Save registers 
55 DD 0189 206 PUSHL R5 bees 
55 02 A5 00 O1BB 50 MOVL 2(R5),R5 ; Get starting state for subexpression 
01BF 508 .IF DEFINED SSDEBUGES 
OOO103"EF OF OI1BF 509 PUSHAL OUT aoty : Store Byte to output string 
00000005'8F bd 01C5 510 PUSHL #0UT_S ; ngth 
00000311'EF 02 FB HS | 21} a CALLS #2, NPASSDEBUG. _OUT2 3 call “sesus output routine 
FE67 CF O00 FB 818 218 CALLS a9, "8 (aaa _EXPR Try to parse subexpression 
20 BA O1D7 514 POPR <R5> Restore state pointer 
14 AA 6€ 00 0109 515 MOVL (sp) at at FLDOPTR(R10) ; Set pointer to matched subexpression 
10 A 53. BE C3 O1DD 516 SUBL3 (SP) +,R3,NPASL Presenters by ; Length of matched subexpression 
3A 50 €9 OI1E2 517 LBC RO,N than If LBC, reject the transition 
0096 31 OES 518 BRW DOTRAN : Perform the transition 


ref 
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NPAR NETWORK (BINARY) MESSAGE PARSER 16-SEP-1984 00:44:2 AX/VMS Macro V04-00 Pa 15 
yon 050 MATCH_STRING = MATCH ON SEQUENCE OF BYTE 5=-SEP-1984 89:58 :28: ‘2 ENML SRCINPARSE MAR: 1 vt (13) 
it 9 ‘ -SBTTL MATCH STRING = MATCH ON SEQUENCE OF BYTES 
3 : } **-MATCH_STRING-MATCH ON SEQUENCE OF BYTES 
if ¢ : MATCH ON A SPECIFIED NUMBER OF BYTES IN THE MESSAGE. 
1E $ : INPUTS: 
1E ; R2 - # OF BYTES REMAINING TO BE SCANNED 
1E 8 3 R35 = POINTER TO UNSCANNED PART OF MESSAGE 
if +. R5 = POINTER TO FLAG BYTE OF CURRENT STATE 
1E 1 MATCH STRING: 
56 02 A5 DO OIE § MOVL gine). RS ; Get number of bytes to match 
52 56 D1 OIEC CMPL R2 3 ae characters left in message ? 
gf 14 O1EF 4 ky nx RAN 3 No - try 99 re transition 
10 AA 6 DO OQIF1 5 NPASL FLDCNT(R10) ; Set up length o 
1F § .IF Der INeD SSoEBUGES 
56 DD OF PUSH ; Store byte string pointer 
gop9005s "EE DF OTF 538 PUSHAL 6 ; Store pointer to FAO control string 
00000205 ‘EF 2 FB O1FD 539 
0204 540 .ENDC 
11 0204 541 BRB UPDTRN ; Update pointers and perform transition 


| 
CALLS oo RP APASSDEBUG_OUT : Call debug output routine 
| 
| 
} 
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43 .SBTTL MATCH_EOM = CHECK FOR END OF MESSAGE 
49 ; *®-MATCH_EOM-CHECK FOR END OF MESSAGE 
of : CHECK THAT WE HAVE PARSED UP TO THE END OF THE MESSAGE 
rk : INPUTS: DE 
; R2 - # OF BY TES REMAINING TO BE PARSED 
: R3 = POINTER TO UNSCANNED PART OF MESSAGE 
5 AATCH OR "Tan Ree Any byt ining to b d? 
; AN es remainin o be parsed ? 
$93 3 BNEG i If NEO, yes ’ , 
A ; IF DEF INED SSoEBUGSS 
44 LS DF A PUSHAL OUT re. ; Store output string address 
OOOOOE'SF DD 19 § PUSHL POUT ¢ : _ and lengt 
00000311'EF 02 FB 16 23 net CALLS 4 UNPASSDEBUG. OUT2 3 Call debug output routine 
SF 11 (021D Ss «561 BRB DOTRAN : 
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] 
| 
if ; : -SBTTL NXTRAN = TRY NEXT ENTRY IN TRANSITION TABLE | 
IF 5 ; **-NXTRAN-TRY NEXT ENTRY IN TRANSITION TABLE 
if 863: THE CURRENT TRANSITION HAS FAILED, TRY TO MATCH ON THE NEXT | 
iF e3 ; ENTRY IN THE TRANSITION TABLE. | 
1F i + INPUTS | 
1F 71: - # OF BYTES REMAINING UNSCANNED 
1F 72; R3 = POINTER TO UNSCANNED PORTION OF MESSAGE 
IF i : R5 = POINTER TO FLAG BYTE OF TRANSITION 
58 10 AA C 1F 75 NXTRAN: ADDL2 NPASL_FLDCNT(R1 ; Return any field matched 
5 10 AA § ; 7 SUBL NPASL_FLDCNT(R1 ; for re-parsing 
56 85 7 CVTWL «= (RS) #7 RE : Get flags. 
i A 457 BGEQ 108 : If GEQ, 
FE44— C531 C 7 BRw SYNERR ; Last sFenattion in state 
57 96 dO F 0 10$: MOVL #6,R7 : Count of flag bits to test 
02 56 «ED ¢ 1 208: BLBC R6, 3508 : If LBC, entry not present 
85S 28¢ TSTL (R5)+ ; Skip entry in table 
56 56)SCO*F F er 9 7 583 308 ROTL #=1,R6,R6 ; Check next flag bit 
F357 FS 023C 584 SOBGTR R7,2 ; Loop 
FOFE 31 O23F 585 BRw MST 3 ond try next transition 
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; ~SBTTL MATCH_ERROR = LEAVE PARSER WITH ERROR 
; **-MATCH_ERROR@LEAVE PARSER WITH ERROR 
EXIT FROM THE PARSER AT THE TOP LEVEL WITH AN ERROR CODE. 
“INPUTS: 
R 


m~ 


4‘ 


OO CceCDCD 


Wnr—OO0OnN r~< 


ES REMAINING TO BE SCANNED 
TO UNSCANNED PART OF MESSAGE 
TO CURRENT STATE 


-ENDC 


9 
94 
32 
39 
38 OUTPUTS: 
+ RO = ERROR CODE FROM STATE TABLE 
4 MATCH_ERROR: 
8 VL oie) Be 3; Pick up error code 
IF DEFINED a + 

Be PUSHR #*M<RO> ; Save register 

5 PUSHL ; Store error value 
06 PUSHAL oyt ERROR ; Store pointer to FAO control string 
07 CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
Be POPR #*R<RO> ; Restore register 

10 


BRB DOTRAN Perform the transition 
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NPAR NETWORK (BINARY) MESSAGE PARSER 16-SEP-1984 246: AX/VMS Macro v04-00 Page 19 | 
V04- MATCH_ALL = PERFORM NULL STATE TRANSITIO §-3 ety 7 ETH: INL SRCINPARSE MARS 1 . (17) | 
8 13 ~SBTTL MATCH_ALL = PERFORM NULL STATE TRANSITION 
8 1 -SBTTL DOTRAN = PERFORM THE STATE TRANSITION 
. . v N-U IN N 
8 1 , SBTTL UPDTR PDATE COUNT AND POINTERS 
; 
: 218 3 *®-UPDTRN-UPDATE COUNT AND POINTERS re 
8 218 3 UPDATE THE COUNT AND POINTER FOR THE CURRENT MATCHING TRANSITION 09 
35 $3) HY BEFORE PERFORMING THE TRANSITION. 00( 
: 6 1 : *®=DOTRAN=PERFORM THE STATE TRANSITION | e's 
36 6 : ; A SUCCESSFUL MATCH HAS OCCURRED ON A SUB-FIELD IN THE MESSAGE, vr 
38 6 4 : PERFORM THE SPECIFIED STATE TRANSITION. 44 
5B C6 : > INPUTS: 7F | 
58 607 R2 - # OF CHARACTERS REMAINING TO BE SCANNED 7F 
5B 6 § : R3 = POINTER TO MESSAGE REMAINING TO BE SCANNED 7F 
8 6 , 3 R5 = POINTER TO FLAG WORD IN CURRENT TRANSITION a 
58 631 MATCH_ALL: 80/ 
8 58 6 ¢ IF DEFINED S$$DEBUGSS 801 
po0ooor rc DF 5B 6 PUSHAL OUT_NULL 3 Store string nointer 801 
0000004'8F DD 0261 634 PUSHL sour NULL_LEN ; Store string length 801 
LL oNPA UG_ ; Ca ebug output routine 
00000311 °EF 02 FB 8 of e 5 enc CALLS #2,NPAS$SDEBUG_OUT2 Call deb i a0 
52 10 AA ce 8 $f 6 $ UPDTRN: SUBL2 NPASL_FLDCNT(R10) ,R2 ; Reduce count of bytes remaining 801 
04 AA 52 OD 6 § MOVL R2,NPASL_MSGCNT(RIO) eas 801 
3 10 AA (CO 0276 6 ADDL2 NPASL_FLBCNT(R10) ,R3 ; Update message pointer 
08 AA «53 «DO 027A «640 MOVL R3.NPASL_MSGPTR (RIO) Bree 
55 3 027 641 DOTRAN: PUSHL R 3; Save current state table address 
56 =685 8 otg CVTWL «=o (R55) +, RG ; Get flags 
56 01 OD 4 64 ITL #@NPASM_EXT,R6 3; Extension present ? 
oe 1 $ 644 BEQLU 10$ si . no 
8 dS 645 TSTL (R5)+ 3; Skip extension field in entry 
20 AA D4 A 966 10$: CLRL NPASL_PARAM(R10) ; Zero action routine parameter 
56 602 oF 8D 64 BITL #NPASA_PARAM,R6 3; Action routine parameter present ? 
4 1 9 648 BEQLU 20 ; If EQLU, no 
20 AA 5 9 649 MOVL (R5)+,NPASL_PARAM(R10) ; Get action routine parameter 
56 D 9 650 208: BITL #NPASM_ACTION,R6 ; Action routine address present ? 
Fe 9 651 BEQLU 40 3; if E@LU, no 
0041 of Hf 98 $36 PUSHR #*M<RO,R6> ; Save action flags and status 
3 1 oO 9F 665 MOVL : Set default return status to success 
9 FA O2A2 654 CALLG (R10), a(RS)+ : Call action routine 
09 50—s«éE8® A $2? BLBS . ; If LBS, then success 
0041 8F BA A 6 § POPR #*A<RO,RO> ; Restore registers 
0 AC 65 POPR #*A<RS> ee 
FF6E 1 aS $28 BRW NXTRAN 5 Reject the transition 
0041 8F BA 8 65 ips: POPR #*A<RO,R6> ; Restore flags and status 
3 1) 43 660 40$: TSTL (SP)+ 3; Clean up stack 
a Dd B 661 BITL #@NPASM_MASK ,R6 ; Mask present ? 
9 13 020A 662 BEQLU 50 tit caf 7 
57 5 OD BC 66 MOVL (R5)+,R7 ; Get bit mask to be set 
5 ; D BF 664 MOVL (R5)+,R8 3 and address 
C C 665 BISL R7, (RB) 3 Set the mask bits 
6 D C 006 50$: BITL #NPASM_STATE.R6 :; Explicit transition present ? 
1 C 66 BEQLU : If EQLU, no 
55 D CA 668 MOVL (R5)+,R5 ; Get pointer to next state 
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03 ¢ CO BNEQ 608 3; If EQL, then stop 
FDB CF BRw puscess ; Successful parse 
FD6B 1 D2 71 60$: BRw MSTA 3 
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D5 73 .IF DEFINED ssoegucss 
Ds 674 BTTL NPARSE DEBUGGING DATA 
Ds 7 SAVE 
0000 67 "PSECT NPASDEBUGSPURE ,NOEXE ,NOWRT BYTE 
o38 OUT_IMAGE : 
20 65 67 61 6D 49 00000008"010E0090" 9000 680 SASCID "Image !AC"’ 
SF 681 OUT_VORD: 
20 20 64 72 6F 57 00000019"9105 9090" HE *ASCID “Word !xw"" 
687 CAPs 
20 20 65 74 79 42 0000002A"010E090" 00 ASCID “Byte 'xB" 
0033 685 OUT_LOOK: 
20 20 68 6F GF 4¢ 00000038"010E9090" 0035 *ASCID “Look !xB" 
044 687 OUT_EXTZV: 
20 76 7A 74 78 45 O000004C*10ED090" 0044 688 SASCID “Extzv 'XL" 
008§ 689 OUT_MATCH: 
20 68 63 74 61 4D 0000005D"010E9090" 9055 690 “ASCID “Match !xB" 
0066 691 OUT_MASK: 
20 20 68 73 61 4D 0000006E"010E9000" 9066 682 *ASCID “Mask 'xB" 
0077 695 OUT_ERROR: 
20 72 GF 72 72 45 0000007F*010E9000" 9077 6 TASCID “Error XL" 
088 695 OUT_FAIL: 
64 65 6C 69 61 46 00000090"910E0090" 0088 696 *ASCID “Failed !xL" 
6E 69 73 72 61 50 000000A2"010E0000" O09a GBF OUTAINIT: ie Parsi (Length = !UL bytes)" 
e arsing message en =: es 
gC 28 20 és 67 61 Hoot te oto 8t Boxe . . . 
a ee oe ee 6? &F 65 be 
cg 499 oUT_LEFT: 
73 72 61 70 6E 5 $3 99000cE® B10¢ 9009" C6 -ASCID “Unparsed message length = !UL bytes" 
6C 20 65 67 61 737 D 20 64 65 00D4 
$5 £¢ $8 $7 $5 $3 58 68 74 67 GF 63 0E0 
; Fi 701 OUT_EON: 
61 73 73 65 6D 20 66 GF 20 64 6 45 OOFI 702 LASCII “End of message” 
000d000L OOF 703 OUT_EOM LEN .-0UT_EOM 
OFF 204 OUT-NULE: 
6C GC 75 4 OOF 705 TASC “'NuLL" 
6000004 9103 706 OUT_NULL_LEN = .OUT_NULL 
70 78 65.62.53 O08 POR eee MP ctr “'Sbexp'' 
So8b08s OI 710 OUT sBEXP_LEN = eOUT_SBEXP 
108 711 OUT~SUCC: 
73 73 65 63 Bo 75 3083 1 ay ASCII ‘‘Success"’ 
00007 O10F 718% oUT_SuCC’LEN = .-OUT. Succ 
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000004 -PSECT NPASDEBUGSIMP,NOEXE ,WRT BYTE 


: FAO Output Buffer 


NARY 
GGIN 
14 
13 
is 
1 
;! FAODESC: 
.LONG 80 
;ADDRESS Ff AOBUF 
7 § AOBUF : 
BS ac 
i 
729 


F 
~-BLKB 80 

OUT DSC: 

FAOCEN: .BLKW j 
» WORD 
-ADDRESS 0 


Sst 
00000058 
$$ 


aoe’? 


0000 3090, 


000002D » RESTORE 


— CYCKKKVesessss BS VSVVVSS VSSSSSSSSSSVVVVVVs3s | F 


eS rea 7 Rae, tc 


QOOO00SC*EF 000000 


omsieaedl 


Woe 


8° 
8' 
00000000 ' GF 


00000000 ' EF 


QOO000S8°EF 04 AC 
OOOOOOSC*EF 08 AC 
0058'EF 


00000000°GF 01 
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ARORA AAA BR AAA AA AAA 
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OCOOCooooCOooCoooooooo 
0000-9 WD OW 2 | “OOWONT ANS 


-SBTTL NPASSDEBUG_OUT 
-SBTTL NPASSDEBUG_OUT2 


point for argument/string output 


sENTRY NPASSDEBUG OUT ,*M<> 
TL NPASGL LOGRASK 


Q 

SFAO_S CTRSTR=@4 (AP) ,- 
OUTLEN=F AOLEN,= 
out UF =F AODESC, = 
P1=8(AP) 

MOVAL FAOBUF ,OUT_DSC+4 


CALLS 4#1,G*LIBSPUT_OUTPUT 


point for string output 


.ENTRY NPASSDEBUG_OUT2, *M<> 
TSTL NPASGL LOGRASK 


MOVL 4(AP) ,OUT_DSC 

MOVL 8(AP) ,OUT_DSC+4 
PUSHAL OUT_DSC 

CALLS #1,G*LIBSPUT_OUTPUT 
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Flag set if logging enabled 
Logsing is disabled 


DE 


; Print string 


Flag set if logging disabled 
Loosing disabled ’ 


Print the string 


$$$ —________ --—__- —, | creme 


NPARSE 
Symbol table 


00 
a 00000010 
ae aise ed 


00000008 
“NUMBER 000001¢ 
NPASL-OPTIONS  0000000C 
NPASL~PARAM 0000020 
NPASM~ACTION = 00000004 
NPASMEXT = 00000001 
NPASM“LAST = 00008000 
NPASM“MASK =: 00000010 
NPASM"MSKADR = 00000020 
NPASM_OFFSET = 00000040 
NPASM-PARAN = 00000002 
NPASM“STATE = 0000000 
NPASWWORD 00000018 
= 00000001 

PAS"BYT = 00000003 
= 00000004 

= 0000007 

= 00000000 

= 0000000A 

= FFFFFFFF 

= 00000000 

= 00000009 

= 0000000 

= 0000000 


SSDEBUGSS = 00000001 
af = $eeneee 
TRA B88 5 
EXAMINE _BYTE 44 2 
XIT B88 OA1 
F AOBUF 00000008 
FAODESC 0 44444 
AOLEN 00000 
LIBSPUT_ OUTPUT ‘eeeneee 
CH_ACL Nt Fa 
MATCH_BYTE 000001 8F 
OM Op bOSe 
MATCH_ERROR 000024 
MATCH_EXTZV 0000015 
MATCH_ IMAGE alee 4 
MATCH_MASK O0000F 
MATCH_SBEXP 00000187 
MATCH_STRING 000001E8 
“WORD OOO00CF 
000040 
PARSE 0000000 
NPASSDEBUG_OUT Bape Eo 
NPASSDEBUG OUT2 00000311 
NPASSSUB_EX GOOO03E 
NPASB_BYTE 000018 
NPASC_LENGTHO 00000024 
PASGC_LO 00000000 
00000024 
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SYNERR 
SYS$FAO 
UPDTRN 
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! ;_Psect synopsis ! 


cao naam awe cee on $ 


PSECT name Allocation PSECT No. Attributes 


. . 00000000 0.) 0 ¢ 0.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 4144 4 ( 36.) 0O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SOWNS B08 $9 4 ( 4.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC BYTE 
SCODES 0000339 ( 863. ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
NPASDEBUGSPURE GOOQOTOF ¢ 271.) 04 ¢ &.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
NPASDEBUGS IMP 00000060 ¢ 96.) 05 ¢ 5.) NOPIC USR REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
On ORME EEO TO Oe bf 
! ;_Per formance indicators ! 
L 
Initialization 29 00:00:00.09 00:00:01.06 
pomnene processing 15) B82 80 08-28 00:00:04.49 
s 1 181 00:00:02.9 00:00:10.87 
Symbol table sort 0 00:00:00.09 00:00:00.25 
s 2 145 00:00:01.69 00:00:03.90 
ee table output 8 00:00:00.08 00:00:00.09 
Psect synopsis output 2 00:00:00.03 00:00:00.07 
Cross-reference output 0 00:00:00.00 00:90:00.00 
Assembler run totals 488 00:00:05.69 00:00:20.74 


The working ost Limit was 1500 pages. 

15720 bytes (31 pages) of virtual memory were used to buffer the intermediate cod 

There were 10 pages of symbol table space allocated to hold 86 non-local and 22 local symbols. 
761 source Lines were read in Pass 1, producing 33 object records in Pass 2. 

13 pages of virtual memory were used to define 11 macros. 


Phase Page faults CPU Time Elapsed Time 
| 
| 
| 


Macro Library name Macros defined 
“$255$DUA 8: SHRLIBINMALIBRY. MLB; 1 0 
“$255$D0UA28: (SYS. “sa LIB.MLB;1 1 
_$255$0UA28: CNML .OBJ JNMLLIB. MLB; 1 2 
“$255$DUA28: (SYSLIBJSTARLET. MLB;2 5 
TOTALS (all Libraries) 8 


136 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NPARSE/OBJ=OBJ$:NPARSE MSRC$:NPARSE/UPDATE=(ENH$:NPARSE) +L1B$:NMLLIB/LIB+EXECML$/LIB*+SHRL IBS: NMAL IBRY/LIB 


T CORPORATION 
PROPRIETARY 
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